<text><span class="style1">his stack contains three XFCNs that deal with text in Rich Text Format, which is usually used to transfer documents between word processors while preserving formatting information. These XCMDs allow HyperCard to exchange styled text with such word processors. They also allow you to copy styled text from one HyperCard field to another, and to store styled text in variables. These XCMDs only understand the subset of RTF that deals with fonts and styles; they will ignore other formatting commands. The XCMDs only run under HyperCard 2.0 or later.These XCMDs have changed in two ways since their original release. RTFToField() now takes a return-separated list of fields as the last argument, and will split up text longer that 30000 bytes into the successive fields. RTFToField() also understands some features in Word 5 (but not Word 4) RTF output, in particular the encoding of curly quotes, dashes of various lengths, and non-breaking space. There is a new XFCN RTFText(), which decodes and returns the text in the RTF passed as argument, ignoring the styling.The </span><span class="style5">FieldToRTF</span><span class="style1"> XFCN returns a string containing the text of a field with RTF formatting commands that describe the different fonts, point sizes, and styles in that field. You call this XFCN as: </span><span class="style5">FieldToRTF(cardflag, "fieldname")</span><span class="style1">where the first argument is </span><span class="style5">true</span><span class="style1"> if the field is a card field, and the second argument is the name of the field. If all goes well the XFCN will return the text of the field in RTF. If some error occurred, it will return a string starting with the word </span><span class="style5">error</span><span class="style1">.The </span><span class="style5">RTFToField</span><span class="style1"> XFCN takes an RTF string and puts the styled text it describes into one or more fields. You call it as: </span><span class="style5">RTFToField(rtfText, cardflag, "fieldname")</span><span class="style1">where the first argument is the RTF string, the second is </span><span class="style5">true</span><span class="style1"> if the field is a card field, and the third is the field name, or a list of field names separated by returns. If all goes well, the text in the field will be replaced with the styled text described by the RTF, and the XFCN will return an empty string. If some error occurred, the XFCN will return an error message.For example, the following script fragment copies the contents of card field "a" to background field "b", preserving styles:</span><span class="style5"> put FieldToRTF(true, "a") into rtf if word 1 of rtf is "error" then answer rtf exit to hypercard end if get RTFToField(rtf, false, "b") if it <> "" then answer it end if</span><span class="style1">Microsoft Word will produce RTF files if you choose the Save As... menu item, click the File Format... button, and then select RTF. If you ask Word to read a text file that contains RTF, it gives you the option of converting the RTF to Word format. See the demonstration card in this stack for an example of how to read and write RTF files with HyperCard.The RTFText() XFCN takes one argument, some RTF text. It returns the same text that RTFToField() would have put in a field. Of course, the return value is just text, without any sort of styling information.RTF is described in the March 1987 Microsoft Systems Journal. HyperCard fields cannot represent much of the formatting described by RTF. For instance, these XFCNs ignore indentation, footnotes, page headers, and pictures. They make one extension to RTF: a \hcgroup character format property to mark HyperCard's grouped text. If you have suggestions about how to support more of RTF, please send them to the address on the first card of this stack.</span></text>
</content>
<name></name>
<script></script>
</card>
card_3052.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset cursor to 4put "" into fld "rtf"put FieldToRTF(false, "styled") into fld "rtf"end mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>235</left>
<top>111</top>
<right>272</right>
<bottom>145</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4895</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>RTF-></name>
<script>on mouseUpset cursor to 4put "" into fld "styled"put RTFToField(fld "rtf", false, "styled") into xxif xx <> "" thenanswer xxend if-- If your text is longer than 30000 bytes, you can split-- into multiple fields with, for instance,-- RTFToField(rtftext, false, "styled1"&return&"styled2")-- This works because hypercard variables can hold more than-- 30000 bytes; they are only limited by available memory.end mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>7</top>
<right>42</right>
<bottom>20</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>137</top>
<right>37</right>
<bottom>150</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>268</top>
<right>106</right>
<bottom>290</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Read RTF File</name>
<script>on mouseUpput the optionkey into optanswer file "Select an RTF file:" of type TEXTput it into flif fl is "" then exit to hypercardopen file flif opt is "down" thenset cursor to 4put "" into fld "styled"read from file fl for 100000put RTFToField(it, false, "styled") into xxif xx <> "" thenanswer xxend ifelseread from file fl for 30000put it into fld "rtf"end ifclose file flend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>113</left>
<top>268</top>
<right>213</right>
<bottom>290</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Write RTF File</name>
<script>on mouseUpask file "Write RTF to:"put it into flif fl is "" then exit to hypercardopen file flwrite fld "rtf" to file flclose file flend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>407</left>
<top>263</top>
<right>445</right>
<bottom>294</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2162</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo card 1end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>3</id>
<text><span class="style18">ext:</span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style18">TF:</span></text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text>{\rtf1\mac\deff2 {\fonttbl{\f0\fswiss Chicago;}{\f2\froman New York;}{\f3\fswiss Geneva;}{\f4\fmodern Monaco;}{\f13\fnil Zapf Dingbats;}{\f14\fnil Bookman;}{\f15\fnil N Helvetica Narrow;}{\f16\fnil Palatino;}{\f18\fnil Zapf Chancery;}{\f20\froman Times;}{\f21\fswiss Helvetica;}{\f22\fmodern Courier;}{\f23\ftech Symbol;}{\f33\fnil Avant Garde;}{\f34\fnil New Century Schlbk;}{\f2515\fnil MT Extra;}}{\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;}{\stylesheet{\sb240 \f16 \sbasedon222\snext0 Normal;}}\widowctrl\ftnbj \sectd \sbknone\linemod0\linex0\cols1\endnhere\titlepg \pard\plain \sb240 \f16 {\f20 First paragraph: \ldblquote text\rdblquote in }{\i\f20 Times}{\f20 twelve point.\par }{\f21\fs36 Second paragraph: Helvetica eighteen point. Some words in }{\fs36\ul Courier}{\fs36 }{\fs36\ul underlined.\'00}\par {\f3 !}{\f3 "#$%&'()*+,-./:;<=>?@[\\]^_`\{|\}~\par \'80\'81\'82\'83\'84\'85\'86\'87\'88\'89\'8a\'8b\'8c\'8d\'8e\'8f\'90\'91\'92\'93\'94\'95\'96\'97\'98\'99\'9a\'9b\'9c\'9d\'9e\'9f\par \'a0\'a1\'a2\'a3\'a4\bullet \'a6\'a7\'a8\'a9\'aa\'ab\'ac\'ad\'ae\'af\'b0\'b1\'b2\'b3\'b4\'b5\'b6\'b7\'b8\'b9\'ba\'bb\'bc\par \'bd\'be\'bf\'c0\'c1\'c2\'c3\'c4\'c5\'c6\'c7\'c8\'c9\'cb\'cc\'cd\'ce\'cf\endash \emdash \ldblquote \rdblquote \lquote \rquote \'d6\'d7\'d8\'d9}\par }</text>
</content>
<content>
<layer>background</layer>
<id>1</id>
<text><span class="style54">irst paragraph: “text” in </span><span class="style55">Times</span><span class="style54"> twelve point.</span><span class="style17">Second paragraph: Helvetica eighteen point. Some words in </span><span class="style56">Courier</span><span class="style57"> </span><span class="style56">underlined.</span><span class="style58"></span><span class="style1">!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~ÄÅÇÉÑÖÜáàâäãåçéèêëíìîïñóòôöõúùûü†°¢£§•¶ß®©™´¨≠ÆØ∞±≤≥¥µ∂∑∏π∫ªºΩæø¿¡¬√ƒ≈∆«»…ÀÃÕŒœ–—“”‘’÷◊ÿŸ</span><span class="style58"></span><span class="style3"></span></text>
</content>
<name></name>
<script></script>
</card>
card_3862.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style39">he XFCNs in this stack are copyright 1992 by Robert Morris. You may freely redistribute this stack if you do so in the same form as you got it. If you find this software useful, please send a $12 shareware fee to: Robert Morris P.O. Box 1044 Harvard Square Station Cambridge, MA 02238 ecognome@aol.comIf you incorporate any of this software in any kind of commercial product, please send $2 per copy distributed to the above address.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style43">TF for HyperCard (v1.2)</span></text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>This stack contains software to translate between HyperCard fields and the Rich Text Format standard for styled text. You can use the software to transfer text between fields while preserving styles, to store styled text in HyperCard variables, or to read and write files that Microsoft Word can understand.</text>
